home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / graphics / tiff / tohoho / star.bas < prev    next >
Encoding:
BASIC Source File  |  1995-02-18  |  595 b   |  22 lines
  1. 1000 CLS:SCREEN@0
  2. 1010 LOAD@"star.tif"
  3. 2000 COLOR 7,,,4:WAIT 200
  4. 2001 LOCATE 3,2:PRINT "いつも、何の気無しに眺めている星空。":WAIT 150
  5. 2002 LOCATE 3,4:PRINT "今日は、何故か知らないけど、妙に新鮮に見える。"
  6. 2003 LOCATE 3,5:PRINT "その時、私の中の何かが目覚めた。":WAIT 300
  7. 2004 LOCATE 3,7:PRINT "宇宙・・・・":WAIT 300
  8. 2005 CLS 1
  9. 2010 FOR I=60 TO 255
  10. 2020 PALETTE 6,[0,I-60,I]
  11. 2030 WAIT 1
  12. 2040 NEXT
  13. 2050 WAIT 500
  14. 3010 FOR I=255 TO 60 STEP -1
  15. 3020 PALETTE 6,[0,I-60,I]
  16. 3030 WAIT 1
  17. 3040 NEXT
  18. 4000 WAIT 100
  19. 5000 MOUSE 0:MOUSE 1,,,0
  20. 5010 IF MOUSE(2,0)=-1 THEN END
  21. 5020 GOTO 5010
  22.